home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok02.lha / IntuiStruct / IntuiStruct.def < prev    next >
Encoding:
Modula Definition  |  1993-08-16  |  3.0 KB  |  90 lines
  1. (**********************************************************************
  2.  
  3.     :Program.       IntuiStruct.def
  4.     :Author.        Nicolas Benezan
  5.     :Address.    Postwiesenstr. 2, D7000 Stuttgart 60
  6.     :Phone.      0711/333679
  7.     :shortcut.      [bne]
  8.     :Version.       1.0a   
  9.     :Date.          23.05.88
  10.     :Copyright.  Public Domain (siehe ReadMe)
  11.     :Language.      Modula-II
  12.     :Translator. M2Amiga AMSoft
  13.     :Update     
  14.     :Contents.     Easy initializing of Intuition structures
  15.     :Remark.     Copy and use it but please leave my name in, thanks.
  16.     
  17. **********************************************************************)
  18.  
  19. DEFINITION MODULE IntuiStruct;
  20.  
  21. FROM Intuition    IMPORT NewScreen,ScreenFlagSet,NewWindow,IDCMPFlagSet,
  22.         WindowFlagSet,ScreenPtr,stdScreenHeight,Image,ImagePtr,
  23.                 IntuiText,IntuiTextPtr,Gadget,GadgetPtr,GadgetFlagSet,
  24.                 GadgetFlags,ActivationFlagSet,PropInfo,PropInfoFlagSet,
  25.                 StringInfo,Menu,MenuPtr,MenuItem,MenuItemPtr,
  26.                 MenuItemFlagSet,MenuItemFlags,menuEnabled,WindowPtr,
  27.                 RefreshGadgets,RequesterPtr;
  28. FROM Graphics    IMPORT ViewModeSet,ViewModes,DrawModeSet,jam1;
  29. FROM GfxMacros    IMPORT RasSize;
  30. FROM SYSTEM    IMPORT ADR,ADDRESS,BITSET,LONGSET,WORD,CAST;
  31. FROM Exec    IMPORT Byte,UByte;
  32. FROM Arts    IMPORT Assert;
  33. FROM Heap    IMPORT Allocate,AllocMem,Deallocate;
  34.  
  35. CONST    MenuNull=0FFFFH;
  36.     NoItem=003FH;
  37.         NoSub=001FH;
  38. VAR    CheckWidth,CommWidth,StdHeight:INTEGER;
  39.  
  40. PROCEDURE StructScreen(VAR NewSc:NewScreen;Depth,Detail,Block:Byte;
  41.     Mode:ViewModeSet;Type:ScreenFlagSet;Title:ADDRESS);
  42.  
  43. PROCEDURE StructWindow(VAR NewW:NewWindow;Left,Top,Width,Height:INTEGER;
  44.     Detail,Block:Byte;IDCMP:IDCMPFlagSet;Flags:WindowFlagSet;Title
  45.         :ADDRESS;Screen:ScreenPtr;Type:ScreenFlagSet);
  46.  
  47. PROCEDURE StructImage(VAR NewImage:Image;Left,Top,Width,Height,Depth:
  48.     INTEGER;Pick,OnOff:BITSET;Next:ImagePtr);
  49.  
  50. PROCEDURE Word(Data:CARDINAL);
  51. PROCEDURE Long(Data:LONGCARD);
  52.  
  53. PROCEDURE ImageEnd;
  54.  
  55. PROCEDURE StructText(VAR IText:IntuiText;APen,BPen:Byte;Mode:DrawModeSet;
  56.     Left,Top:INTEGER;Text:ADDRESS;Next:IntuiTextPtr);
  57.  
  58. PROCEDURE StructGadget(VAR NewGadg:Gadget;Left,Top,Width,Height:INTEGER;
  59.     Flags:GadgetFlagSet;Activ:ActivationFlagSet;Type:CARDINAL;
  60.         Render:ADDRESS;Text:IntuiTextPtr;Excl:LONGSET;ID:INTEGER;
  61.         Next:GadgetPtr);
  62.  
  63. PROCEDURE ExcludeGadget(Gadgets:GadgetPtr;Window:WindowPtr;
  64.         Requester:RequesterPtr;Mask:LONGSET);
  65.  
  66. PROCEDURE StructProp(VAR Info:PropInfo;Flags:PropInfoFlagSet;
  67.     HPot,VPot,HBody,VBody:CARDINAL);
  68.  
  69. PROCEDURE StructString(VAR Info:StringInfo;VAR Buffer,UndoBuf:
  70.     ARRAY OF CHAR);
  71.  
  72. PROCEDURE LinkMenu(VAR MenuStrip:MenuPtr;Name:ADDRESS;Pos,Width:INTEGER;
  73.     Enabled:BOOLEAN):BOOLEAN;
  74.  
  75. PROCEDURE Item(Name:ADDRESS;Width:INTEGER;Flags:MenuItemFlagSet;
  76.     Excl:LONGSET;Cmd:CHAR);
  77.  
  78. PROCEDURE SubItem(Name:ADDRESS;LeftEdge,Width:INTEGER;Flags:
  79.     MenuItemFlagSet;Excl:LONGSET;Cmd:CHAR);
  80.  
  81. PROCEDURE MenuNum(Num:CARDINAL):CARDINAL;
  82. PROCEDURE ItemNum(Num:CARDINAL):CARDINAL;
  83. PROCEDURE SubNum(Num:CARDINAL):CARDINAL;
  84. PROCEDURE MakeNum(Menu,Item,SubItem:CARDINAL):CARDINAL;
  85.  
  86. END IntuiStruct.
  87.  
  88.  
  89.  
  90.